
;; scheme configure
(setq geiser-active-implementations '(chez chicken racket  guile))
(setq geiser-default-implementation 'chez)
;; (setq geiser-mode-eval-last-sexp-to-buffer t)
(setq geiser-mode-eval-to-buffer-prefix ";;=>")

(add-to-list 'exec-path "~/.usr/bin")
;; (spacemacs/toggle-evil-safe-lisp-structural-editing-on-register-hook-scheme-mode)
(add-to-list 'auto-mode-alist '("\\.sls\\'" . scheme-mode))

;; lisp configure
(add-to-list 'exec-path "~/.opt/sbcl/bin")
(defvar common-lisp-hyperspec-root "/usr/local/share/doc/HyperSpec/Body")
;; quicklisp configure
;; (load (expand-file-name "~/quicklisp/slime-helper.el"))

;; (spacemacs/set-leader-keys-for-major-mode 'lisp-mode
;;   "\"" 'slime
;;   "'"  'slime-repl
;;   )


;; haskell configure
(add-to-list 'exec-path "/opt/ghc/bin")
(add-to-list 'exec-path "~/.cabal/bin")
(setq haskell-interactive-prompt "> ")

(spacemacs/set-leader-keys-for-major-mode 'haskell-mode
  "'" 'haskell-interactive-switch)




;;python config
(when (executable-find "ipython")
  (setq python-shell-interpreter "ipython"))


(custom-set-variables
 '(flycheck-clang-language-standard "c++11")
 ;; '(org-babel-confirm-evaluate nil)
 )


;; org babel configure
(setq org-confirm-babel-evaluate nil)

(org-babel-do-load-languages
 'org-babel-load-languages
 '((scheme . t)
   (python . t)
   (shell . t)

   ))


;; ;; latex use xelatex
;; (add-hook 'doc-view-mode-hook 'auto-revert-mode)
;; (add-hook 'LaTeX-mode-hook (lambda()
;;                              (add-to-list 'TeX-command-list '("XeLaTeX" "%`xelatex%(mode)%' %t" TeX-run-TeX nil t))
;;                              (setq TeX-command-default "XeLaTeX")
;;                              (setq TeX-save-query  nil )
;;                              ;; (setq TeX-show-compilation t)
;;                              ))


;; org-mode configure
(with-eval-after-load 'org
  (setq org-bullets-bullet-list '("■" "◆" "▲" "▶"))
  )

'(org-refile-targets (quote ((nil :maxlevel . 3))))


 ;; '(org-capture-templates
 ;;   (quote
 ;;      "")
 ;;     ("s" "shell" entry
 ;;      (file "~/life/FAQ/shell.org")
 ;;      "")
 ;;     ("T" "Tool" entry
 ;;      (file "~/life/FAQ/Tool.org")
 ;;      "")
 ;;      ""))))
